Chip 2007 January, February, March & April/Chip-Cover-CD-2007-02.iso/Hity z okladki/Diino 4/diino4_Setup_En.exe/{app}/Diino.exe/0/RCDATA/TDLGCOMMENTS/TDLGCOMMENTS.txt

Text File | 2006-11-06 | 3KB | 161 lines

object DlgComments: TDlgComments
  Left = 0
  Top = 0
  Caption = 'Diino Blog Entry Comments'
  ClientHeight = 297
  ClientWidth = 546
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg 2'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  DesignSize = (
    546
    297)
  PixelsPerInch = 96
  TextHeight = 13
  object BtnSave: TTntButton
    Left = 386
    Top = 268
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Save'
    ModalResult = 1
    TabOrder = 2
  end
  object BtnCancel: TTntButton
    Left = 464
    Top = 268
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 0
  end
  object GbComments: TTntGroupBox
    Left = 6
    Top = 3
    Width = 535
    Height = 259
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = 'Comment List'
    TabOrder = 1
    DesignSize = (
      535
      259)
    object ImgTitle: TImage
      Left = 8
      Top = 18
      Width = 24
      Height = 24
      Picture.Data = {<image000.bmp>}
      Transparent = True
    end
    object LblTitle: TTntLabel
      Left = 42
      Top = 24
      Width = 227
      Height = 13
      Caption = 'Comments that your blog entry has generated.'
    end
    object Lv: TTntListView
      Left = 12
      Top = 56
      Width = 511
      Height = 163
      Anchors = [akLeft, akTop, akRight, akBottom]
      Columns = <
        item
          Caption = 'From'
          Width = 120
        end
        item
          Caption = 'E-Mail'
          Width = 140
        end
        item
          Caption = 'Date'
          Width = 95
        end
        item
          AutoSize = True
          Caption = 'Comment'
        end>
      OwnerData = True
      ReadOnly = True
      RowSelect = True
      PopupMenu = PM
      TabOrder = 1
      ViewStyle = vsReport
      OnData = LvData
      OnDblClick = AcCommentEditExecute
    end
    object BtnRemove: TTntButton
      Left = 175
      Top = 225
      Width = 75
      Height = 25
      Action = AcCommentRemove
      Anchors = [akLeft, akBottom]
      TabOrder = 2
    end
    object BtnEdit: TTntButton
      Left = 93
      Top = 225
      Width = 75
      Height = 25
      Action = AcCommentEdit
      Anchors = [akLeft, akBottom]
      TabOrder = 0
    end
    object BtnNew: TTntButton
      Left = 12
      Top = 225
      Width = 75
      Height = 25
      Action = AcCommentNew
      Anchors = [akLeft, akBottom]
      TabOrder = 3
    end
  end
  object AL: TTntActionList
    OnUpdate = ALUpdate
    Left = 24
    Top = 84
    object AcCommentEdit: TTntAction
      Caption = '&Edit'
      OnExecute = AcCommentEditExecute
    end
    object AcCommentRemove: TTntAction
      Caption = '&Remove'
      ShortCut = 46
      OnExecute = AcCommentRemoveExecute
    end
    object AcCommentNew: TTntAction
      Caption = '&New'
      ShortCut = 16462
      OnExecute = AcCommentNewExecute
    end
  end
  object PM: TTntPopupMenu
    Left = 54
    Top = 84
    object New1: TTntMenuItem
      Action = AcCommentNew
    end
    object Edit1: TTntMenuItem
      Action = AcCommentEdit
      ShortCut = 13
    end
    object Remove1: TTntMenuItem
      Action = AcCommentRemove
    end
  end
end